Tamar is a graduate student in the Cell and Systems Biology program and the University of Toronto. She complete a Bachelors of Science at the University of British Columbia studying Microbiology and Immunology and Computer Science.
Table 1. Record of all undergraduate courses
# show a table with all my courses
paged_table(courses)
## organize the data for plotting
courses_counts <- courses %>%
group_by(Course.Department, course_type) %>%
count()
# plot
ggplot(data=courses_counts, aes(x=Course.Department, y=n, fill=course_type)) +
geom_bar(stat="identity", width=0.5) +
labs(y="Number of Courses", x="Course Department", fill="Course Type") +
theme_light() +
scale_y_continuous(limits = c(0, 12), breaks = seq(0, 12, by = 2))+
ggtitle("Tamar's Undergraduate Degree")+
theme(axis.text.y=element_text(size=12),
axis.text.x=element_text(size=12))
Figure 1 summary of undergraduate courses barplot of the number of courses taken throughout the undergraduate degree. Colors represent the catagory of each course as part of the undergraduate course requirements.
I have many hobbies such as: knitting, swimming, watching movies, reading, cooking.
# plot
ggplot(data=hobbies, aes(x=hobby, y=hours_per_week)) +
geom_bar(stat="identity", width=0.5) +
labs(y="Hours per Week", x="Hobby") +
theme_light() +
ggtitle("Tamar's Weekly Hobbies")+
theme(axis.text.y=element_text(size=12),
axis.text.x=element_text(size=12))
Figure 2 barplot of the number of hours spent a week on each hobby.
Right now my favorite hobby is knitting!
I finished knitting this sweater 3 months ago. It took me about 80 hours to complete. I got the pattern which is called “Fairy Bouquet” from Ravelry!
## Questions to
answer
1.What is your bachelors degree?
2.Which courses have you taken and in which departments?
4.How many hours a week do you spend on each hobby?